home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 1 / Cream of the Crop 1.iso / EDUCATE / SM20A.ARJ / SYMBMATH.INI < prev    next >
Text File  |  1992-04-15  |  11KB  |  264 lines
  1. constant("pi",3.1415926535897932384626433832).
  2. constant("e",2.7182818284590452353602874713).
  3. reduce2(var("i"),complex(0,1)).
  4. reduce2(sign(var("i")),complex(0,-1)).
  5. reduce2(mult(int(0),f("sin",var("discont"))),int(0)).
  6. reduce2(power(plus(int(1),divide(int(1),var("inf"))),var("inf")),var("e")).
  7. reduce2(power(plus(int(1),divide(int(1),minus(int(-1),var("zero")))),minus(int(-1),var("zero"))),var("inf")).
  8. plus2(var("zero"),mult(int(-1),var("zero")),var("zero")).
  9. plus2(mult(int(-1),var("zero")),var("zero"),var("zero")).
  10. plus2(var("discont"),mult(int(-1),var("discont")),var("discont")).
  11. plus2(mult(int(-1),var("discont")),var("discont"),var("discont")).
  12. plus2(var("inf"),mult(int(-1),var("inf")),var("undefined")).
  13. plus2(mult(int(-1),var("inf")),var("inf"),var("undefined")).
  14. minus2(var("undefined"),var("undefined"),var("undefined")).
  15. minus2(var("zero"),var("zero"),var("zero")).
  16. minus2(var("discont"),var("discont"),var("discont")).
  17. minus2(var("inf"),var("inf"),var("undefined")).
  18. minus2(sign(var("inf")),sign(var("inf")),var("undefined")).
  19. mult2(complex(0,1),complex(0,1),int(-1)).
  20. mult2(int(0),var("inf"),var("undefined")).
  21. mult2(var("inf"),int(0),var("undefined")).
  22. mult2(int(0),sign(var("inf")),var("undefined")).
  23. mult2(sign(var("inf")),int(0),var("undefined")).
  24. mult2(var("inf"),var("zero"),var("undefined")).
  25. mult2(var("zero"),var("inf"),var("undefined")).
  26. mult2(complex(0,1),var("inf"),mult(complex(0,1),var("inf"))).
  27. div2(int(0),int(0),var("undefined")).
  28. div2(var("zero"),var("zero"),var("undefined")).
  29. div2(var("discont"),var("discont"),var("discont")).
  30. div2(var("inf"),var("inf"),var("undefined")).
  31. div2(sign(var("inf")),sign(var("inf")),var("undefined")).
  32. div2(sign(var("inf")),var("inf"),var("undefined")).
  33. div2(var("inf"),sign(var("inf")),var("undefined")).
  34. div2(var("inf"),var("zero"),var("inf")).
  35. div2(sign(var("inf")),var("zero"),sign(var("inf"))).
  36. div2(var("e"),var("inf"),int(0)).
  37. div2(var("pi"),var("inf"),int(0)).
  38. power2(int(-1),complex(0,1),int(0.0432139)).
  39. power2(int(-1),int(0.5),complex(0,1)).
  40. power2(int(-1),fract(1,2),complex(0,1)).
  41. power2(int(-1),int(-0.5),complex(0,-1)).
  42. power2(int(-1),fract(-1,2),complex(0,-1)).
  43. power2(int(0),int(0),var("undefined")).
  44. power2(var("zero"),var("zero"),var("undefined")).
  45. power2(int(1),var("inf"),var("undefined")).
  46. power2(int(-1),var("inf"),var("undefined")).
  47. power2(int(1),sign(var("inf")),var("undefined")).
  48. power2(int(-1),sign(var("inf")),var("undefined")).
  49. power2(var("e"),var("zero"),int(1)).
  50. power2(var("e"),var("inf"),var("inf")).
  51. power2(var("e"),sign(var("inf")),int(0)).
  52. power2(var("e"),mult(complex(0,-1),var("pi")),int(-1)).
  53. power2(var("e"),mult(complex(0,1),var("pi")),int(-1)).
  54. power2(var("e"),plus(var("inf"),mult(complex(0,1),var("pi"))),sign(var("inf"))).
  55. power2(var("e"),minus(var("inf"),mult(complex(0,1),var("pi"))),sign(var("inf"))).
  56. power2(var("inf"),int(0),var("undefined")).
  57. power2(sign(var("inf")),int(0),var("undefined")).
  58. power2(var("inf"),var("inf"),var("inf")).
  59. power2(sign(var("inf")),int(0.5),mult(complex(0,1),var("inf"))).
  60. power2(complex(0,-1),int(2),int(-1)).
  61. power2(complex(0,1),int(-2),int(-1)).
  62. power2(complex(0,1),int(-3),complex(0,1)).
  63. power2(complex(0,1),int(-4),int(1)).
  64. power2(complex(0,1),int(2),int(-1)).
  65. power2(complex(0,1),int(3),complex(0,-1)).
  66. power2(complex(0,1),int(4),int(1)).
  67. power2(complex(0,1),complex(0,1),int(0.20788)).
  68. sign2(var("undefined"),var("undefined")).
  69. sign2(var("discont"),var("discont")).
  70. fr2("fac",int(0),int(1)).
  71. fr2("fac",int(1),int(1)).
  72. fr2("fac",var("inf"),var("inf")).
  73. fr2("sgn",int(0),int(0)).
  74. fr2("sgn",var("zero"),int(1)).
  75. fr2("sgn",var("e"),int(1)).
  76. fr2("sgn",var("pi"),int(1)).
  77. fr2("sgn",var("inf"),int(1)).
  78. fr2("abs",var("zero"),var("zero")).
  79. fr2("abs",var("e"),var("e")).
  80. fr2("abs",var("pi"),var("pi")).
  81. fr2("abs",var("inf"),var("inf")).
  82. fr2("ln",int(-1),mult(complex(0,1),var("pi"))).
  83. fr2("ln",int(0),var("discont")).
  84. fr2("ln",var("zero"),sign(var("inf"))).
  85. fr2("ln",sign(var("zero")),plus(sign(var("inf")),mult(complex(0,1),var("pi")))).
  86. fr2("ln",int(1),int(0)).
  87. fr2("ln",var("e"),int(1)).
  88. fr2("ln",var("inf"),var("inf")).
  89. fr2("ln",sign(var("inf")),plus(var("inf"),mult(complex(0,1),var("pi")))).
  90. fr2("sin",var("zero"),var("zero")).
  91. fr2("sin",int(0),int(0)).
  92. fr2("sin",mult(fract(1,6),var("pi")),fract(1,2)).
  93. fr2("sin",mult(fract(1,4),var("pi")),mult(fract(1,2),f("sqrt",int(2)))).
  94. fr2("sin",mult(fract(1,3),var("pi")),mult(fract(1,2),f("sqrt",int(3)))).
  95. fr2("sin",mult(fract(1,2),var("pi")),int(1)).
  96. fr2("sin",var("pi"),int(0)).
  97. fr2("sin",mult(int(2),var("pi")),int(0)).
  98. fr2("sin",complex(0,1),complex(0,1.175201)).
  99. fr2("sin",complex(0,0.881374),complex(0,1)).
  100. fr2("sin",plus(mult(fract(1,2),var("pi")),mult(complex(0,1),var("inf"))),var("inf")).
  101. fr2("sin",minus(mult(fract(-1,2),var("pi")),mult(complex(0,1),var("inf"))),sign(var("inf"))).
  102. fr2("sin",var("inf"),var("undefined: sin(inf)")).
  103. fr2("sin",sign(var("inf")),sign(var("undefined: sin(inf)"))).
  104. fr2("cos",var("zero"),int(1)).
  105. fr2("cos",int(0),int(1)).
  106. fr2("cos",mult(fract(1,6),var("pi")),mult(fract(1,2),f("sqrt",int(3)))).
  107. fr2("cos",mult(fract(1,4),var("pi")),mult(fract(1,2),f("sqrt",int(2)))).
  108. fr2("cos",mult(fract(1,3),var("pi")),fract(1,2)).
  109. fr2("cos",mult(fract(1,2),var("pi")),int(0)).
  110. fr2("cos",var("pi"),int(-1)).
  111. fr2("cos",mult(int(2),var("pi")),int(1)).
  112. fr2("cos",complex(0,1),int(1.543081)).
  113. fr2("cos",complex(1.570796,-0.881374),complex(0,1)).
  114. fr2("cos",mult(complex(0,-1),var("inf")),var("inf")).
  115. fr2("cos",plus(var("pi"),mult(complex(0,1),var("inf"))),sign(var("inf"))).
  116. fr2("cos",var("inf"),var("undefined: cos(inf)")).
  117. fr2("cos",sign(var("inf")),var("undefined: cos(inf)")).
  118. fr2("tan",int(0),int(0)).
  119. fr2("tan",mult(fract(1,6),var("pi")),mult(fract(1,3),f("sqrt",int(3)))).
  120. fr2("tan",mult(fract(1,4),var("pi")),int(1)).
  121. fr2("tan",mult(fract(1,3),var("pi")),f("sqrt",int(3))).
  122. fr2("tan",mult(fract(1,2),var("pi")),var("discont")).
  123. fr2("tan",plus(mult(fract(1,2),var("pi")),var("zero")),var("inf")).
  124. fr2("tan",minus(mult(fract(1,2),var("pi")),var("zero")),sign(var("inf"))).
  125. fr2("tan",mult(fract(-1,2),var("pi")),var("discont")).
  126. fr2("tan",var("pi"),int(0)).
  127. fr2("tan",complex(0,1),complex(0,0.761594)).
  128. fr2("tan",var("inf"),var("undefined")).
  129. fr2("tan",sign(var("inf")),var("undefined")).
  130. fr2("cot",int(0),var("discont")).
  131. fr2("cot",var("zero"),var("inf")).
  132. fr2("cot",sign(var("zero")),sign(var("inf"))).
  133. fr2("cot",mult(fract(1,2),var("pi")),int(0)).
  134. fr2("cot",var("pi"),var("discont")).
  135. fr2("cot",var("inf"),var("undefined")).
  136. fr2("cot",sign(var("inf")),var("undefined")).
  137. fr2("sec",int(0),int(1)).
  138. fr2("sec",mult(fract(1,2),var("pi")),var("discont")).
  139. fr2("sec",mult(fract(-1,2),var("pi")),var("discont")).
  140. fr2("sec",var("pi"),int(-1)).
  141. fr2("sec",var("inf"),var("undefined")).
  142. fr2("sec",sign(var("inf")),var("undefined")).
  143. fr2("csc",int(0),var("discont")).
  144. fr2("csc",mult(fract(1,2),var("pi")),int(1)).
  145. fr2("csc",var("pi"),var("discont")).
  146. fr2("csc",var("inf"),var("undefined")).
  147. fr2("csc",sign(var("inf")),var("undefined")).
  148. fr2("asin",int(0),int(0)).
  149. fr2("asin",int(1),mult(fract(1,2),var("pi"))).
  150. fr2("asin",int(-1),mult(fract(-1,2),var("pi"))).
  151. fr2("asin",var("inf"),var("undefined")).
  152. fr2("asin",sign(var("inf")),var("undefined")).
  153. fr2("asin",complex(0,1),complex(0,0.881374)).
  154. fr2("acos",int(0),mult(fract(1,2),var("pi"))).
  155. fr2("acos",int(1),int(0)).
  156. fr2("acos",int(-1),sign(var("pi"))).
  157. fr2("acos",var("inf"),var("undefined")).
  158. fr2("acos",sign(var("inf")),var("undefined")).
  159. fr2("acos",complex(0,1),complex(1.570796,-0.881374)).
  160. fr2("atan",int(0),int(0)).
  161. fr2("atan",var("inf"),mult(fract(1,2),var("pi"))).
  162. fr2("atan",sign(var("inf")),mult(fract(-1,2),var("pi"))).
  163. fr2("asec",int(0),var("undefined")).
  164. fr2("asec",int(1),int(0)).
  165. fr2("asec",int(-1),var("pi")).
  166. fr2("asec",var("inf"),mult(fract(1,2),var("pi"))).
  167. fr2("asec",sign(var("inf")),mult(fract(1,2),var("pi"))).
  168. fr2("acsc",int(0),var("undefined")).
  169. fr2("acsc",int(1),mult(fract(1,2),var("pi"))).
  170. fr2("acsc",int(-1),mult(fract(-1,2),var("pi"))).
  171. fr2("acsc",var("inf"),int(0)).
  172. fr2("acsc",sign(var("inf")),int(0)).
  173. fr2("sinh",int(0),int(0)).
  174. fr2("sinh",var("inf"),var("inf")).
  175. fr2("sinh",sign(var("inf")),sign(var("inf"))).
  176. fr2("sinh",complex(0,1),complex(0,0.841471)).
  177. fr2("cosh",int(0),int(1)).
  178. fr2("cosh",var("inf"),var("inf")).
  179. fr2("cosh",sign(var("inf")),var("inf")).
  180. fr2("cosh",complex(0,1),int(0.540302)).
  181. fr2("tanh",int(0),int(0)).
  182. fr2("tanh",var("inf"),int(1)).
  183. fr2("tanh",sign(var("inf")),int(-1)).
  184. fr2("tanh",complex(0,1),complex(0,1.557408)).
  185. fr2("coth",int(0),var("discont")).
  186. fr2("coth",var("inf"),int(1)).
  187. fr2("coth",sign(var("inf")),int(-1)).
  188. fr2("sech",int(0),int(1)).
  189. fr2("sech",var("inf"),int(0)).
  190. fr2("sech",sign(var("inf")),int(0)).
  191. fr2("csch",int(0),var("discont")).
  192. fr2("csch",var("inf"),int(0)).
  193. fr2("csch",sign(var("inf")),int(0)).
  194. fr2("asinh",int(0),int(0)).
  195. fr2("asinh",var("inf"),var("inf")).
  196. fr2("asinh",sign(var("inf")),sign(var("inf"))).
  197. fr2("acosh",int(1),int(0)).
  198. fr2("acosh",var("inf"),var("inf")).
  199. fr2("acosh",sign(var("inf")),plus(var("inf"),mult(complex(0,1),var("pi")))).
  200. fr2("atanh",int(0),int(0)).
  201. fr2("atanh",int(1),var("discont")).
  202. fr2("atanh",int(-1),var("discont")).
  203. fr2("atanh",minus(int(1),var("zero")),var("inf")).
  204. fr2("atanh",plus(int(-1),var("zero")),sign(var("inf"))).
  205. fr2("acoth",int(0),var("undefined")).
  206. fr2("acoth",int(1),var("discont")).
  207. fr2("acoth",int(-1),var("discont")).
  208. fr2("acoth",plus(int(1),var("zero")),var("inf")).
  209. fr2("acoth",minus(int(-1),var("zero")),sign(var("inf"))).
  210. fr2("acoth",var("inf"),int(0)).
  211. fr2("acoth",sign(var("inf")),int(0)).
  212. fr2("asech",int(0),var("inf")).
  213. fr2("acsch",int(0),var("discont")).
  214. fr2("acsch",var("inf"),int(0)).
  215. fr2("acsch",sign(var("inf")),int(0)).
  216. fr2("erf",int(0),int(0)).
  217. fr2("erf",var("inf"),int(1)).
  218. fr2("erf",sign(var("inf")),int(-1)).
  219. in2(divide(int(1),plus(int(1),f("tan",var("x")))),var("x"),divide(plus(var("x"),f("ln",plus(f("cos",var("x")),f("sin",var("x"))))),int(2)))).
  220. in2(divide(var("x"),plus(int(1),var("x"))),var("x"),minus(var("x"),f("ln",plus(int(1),var("x"))))).
  221. fun("solve").
  222. fun("ln").
  223. fun("sin").
  224. fun("cos").
  225. fun("tan").
  226. fun("cot").
  227. fun("sec").
  228. fun("csc").
  229. fun("asin").
  230. fun("acos").
  231. fun("atan").
  232. fun("acot").
  233. fun("asec").
  234. fun("acsc").
  235. fun("sinh").
  236. fun("cosh").
  237. fun("tanh").
  238. fun("coth").
  239. fun("sech").
  240. fun("csch").
  241. fun("asinh").
  242. fun("acosh").
  243. fun("atanh").
  244. fun("acoth").
  245. fun("asech").
  246. fun("acsch").
  247. fun("erf").
  248. error(21,"\nERROR: mis-syntax or the function name is invalid").
  249. error(23,"\nERROR: this function is not in Shareware Version, please use Advanced Version").
  250. error(31,"\nERROR: unmatched (").
  251. error(32,"\nERROR: unmatched )").
  252. error(33,"\nERROR: unmatched [").
  253. error(34,"\nERROR: unmatched ]").
  254. error(41,"ERROR: infinite recursion").
  255. error(52,"ERROR: arguement is not a simple variable or number of arguement > 2").
  256. error(54,"ERROR: mis-syntax or the local variable is not a simple variable").
  257. error(62,"Select with Arrow keys or first capital letter").
  258. error(64,"Input filename, -><- Edit, <Esc> Abort").
  259. error(66,"<F1> Help, <Shi><F1> Manual, <F3> Load, <F5> Zoom, <F7> Xcopy, <Shi><F10> Resize").
  260. getvar(var("Output"),var("TwoDim")).
  261. getvar(var("Expand"),var("Off")).
  262. getvar(var("Numerical"),var("Off")).
  263. getvar(var("NumIntegrate"),var("Off")).
  264. finame("New.sm").